﻿Imports System.Data.OleDb

Public Class frmInfoRankingVtaPosvta

    Private Sub frmInfoRankingVtaPosvta_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CargarEmpresas(cbo_empresa)
        dtpInicio.Value = Today
        dtpfin.Value = Today
    End Sub

    Private Sub btCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancelar.Click
        If cadenaConexBD.State = ConnectionState.Open Then
            cadenaConexBD.Close()
        End If
        Close()
    End Sub

    Private Sub btMostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMostrar.Click

        Dim informeRanking As New VtaPosvta_querys
        Dim insertoTemporalRanking As New VtaPosvta_querys
        Dim drConsultadosVta As OleDbDataReader
        Dim drConsultadosPvta As OleDbDataReader
        Dim nomape_auditadoV As String = ""
        Dim promedio_auditadoV As Double

        Dim nomape_auditadoPv As String = ""
        Dim promedio_auditadoPv As Double



        If (cbo_empresa.Text = "Seleccionar...") Then
            MsgBox("Seleccione una Empresa para el informe")
        Else
            'aca los datos de promedios de VENTAS para la tabla temporal
            drConsultadosVta = informeRanking.QxAsesorRankingVta
            drConsultadosPvta = informeRanking.QxAsesorRankingPOSVta

            If (drConsultadosVta.HasRows) Or (drConsultadosVta.HasRows) Then
                While drConsultadosVta.Read
                    If Not drConsultadosVta.IsDBNull(0) Then
                        nomape_auditadoV = drConsultadosVta.GetString(0)
                    End If
                    If Not drConsultadosVta.IsDBNull(1) Then
                        promedio_auditadoV = drConsultadosVta.GetDouble(1)
                    End If
                    insertoTemporalRanking.insertarTemporalRankingVtaPosvta(nomape_auditadoV, promedio_auditadoV)
                End While


                While drConsultadosPvta.Read
                    If Not drConsultadosPvta.IsDBNull(0) Then
                        nomape_auditadoPv = drConsultadosPvta.GetString(0)
                    End If
                    If Not drConsultadosPvta.IsDBNull(1) Then
                        promedio_auditadoPv = drConsultadosPvta.GetDouble(1)
                    End If
                    insertoTemporalRanking.insertarTemporalRankingVtaPosvta(nomape_auditadoPv, promedio_auditadoPv)
                End While

                drConsultadosVta.Close()
                drConsultadosPvta.Close()
                frmRankingVtaPosvta.ShowDialog()
            Else
                MsgBox("No hay resultados para los parámetros especificados, intentelo nuevamente.", MsgBoxStyle.Information, "Reporte")
                drConsultadosVta.Close()
            End If
        End If

    End Sub
End Class